home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / frmAddIn.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-03  |  5.3 KB  |  170 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAddIn 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "KeyGen by CyberBlade..."
  6.    ClientHeight    =   4095
  7.    ClientLeft      =   2175
  8.    ClientTop       =   1935
  9.    ClientWidth     =   4290
  10.    Icon            =   "frmAddIn.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4095
  15.    ScaleWidth      =   4290
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Frame Frame4 
  18.       BackColor       =   &H80000007&
  19.       Caption         =   "Company:"
  20.       ForeColor       =   &H000000FF&
  21.       Height          =   615
  22.       Left            =   240
  23.       TabIndex        =   8
  24.       Top             =   1920
  25.       Width           =   3735
  26.       Begin VB.TextBox txtCompany 
  27.          ForeColor       =   &H00000000&
  28.          Height          =   285
  29.          Left            =   240
  30.          TabIndex        =   9
  31.          Text            =   "ReFleXZ"
  32.          Top             =   240
  33.          Width           =   3255
  34.       End
  35.    End
  36.    Begin VB.Frame Frame3 
  37.       BackColor       =   &H80000007&
  38.       Caption         =   "First Name:"
  39.       ForeColor       =   &H000000FF&
  40.       Height          =   615
  41.       Left            =   240
  42.       TabIndex        =   6
  43.       Top             =   1200
  44.       Width           =   3735
  45.       Begin VB.TextBox txtFirst 
  46.          ForeColor       =   &H00000000&
  47.          Height          =   285
  48.          Left            =   240
  49.          TabIndex        =   7
  50.          Text            =   "Cyber"
  51.          Top             =   240
  52.          Width           =   3255
  53.       End
  54.    End
  55.    Begin VB.CommandButton Command1 
  56.       Caption         =   "Quit"
  57.       Height          =   495
  58.       Left            =   2280
  59.       TabIndex        =   5
  60.       Top             =   3480
  61.       Width           =   1815
  62.    End
  63.    Begin VB.CommandButton cmdGenerate 
  64.       Caption         =   "Generate"
  65.       Height          =   495
  66.       Left            =   240
  67.       TabIndex        =   4
  68.       Top             =   3480
  69.       Width           =   1815
  70.    End
  71.    Begin VB.Frame Frame2 
  72.       BackColor       =   &H80000007&
  73.       Caption         =   "Serial:"
  74.       ForeColor       =   &H000000FF&
  75.       Height          =   615
  76.       Left            =   240
  77.       TabIndex        =   2
  78.       Top             =   2640
  79.       Width           =   3735
  80.       Begin VB.TextBox txtKey 
  81.          BackColor       =   &H00E0E0E0&
  82.          ForeColor       =   &H00800000&
  83.          Height          =   285
  84.          Left            =   240
  85.          Locked          =   -1  'True
  86.          TabIndex        =   3
  87.          Text            =   "< Your serial will be displayed here >"
  88.          Top             =   240
  89.          Width           =   3255
  90.       End
  91.    End
  92.    Begin VB.Frame Frame1 
  93.       BackColor       =   &H80000007&
  94.       Caption         =   "Name:"
  95.       ForeColor       =   &H000000FF&
  96.       Height          =   615
  97.       Left            =   240
  98.       TabIndex        =   0
  99.       Top             =   480
  100.       Width           =   3735
  101.       Begin VB.TextBox txtName 
  102.          ForeColor       =   &H00000000&
  103.          Height          =   285
  104.          Left            =   240
  105.          TabIndex        =   1
  106.          Text            =   "Blade"
  107.          Top             =   240
  108.          Width           =   3255
  109.       End
  110.    End
  111.    Begin VB.Label Label1 
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "This is a KeyGen for ACiD BuRN's CrackMe v1.0"
  114.       ForeColor       =   &H00FFFFFF&
  115.       Height          =   255
  116.       Left            =   360
  117.       TabIndex        =   10
  118.       Top             =   120
  119.       Width           =   3855
  120.    End
  121.    Begin VB.Line Line3 
  122.       BorderColor     =   &H00FFFFFF&
  123.       X1              =   0
  124.       X2              =   4560
  125.       Y1              =   3360
  126.       Y2              =   3360
  127.    End
  128.    Begin VB.Line Line2 
  129.       BorderColor     =   &H00FFFFFF&
  130.       X1              =   4560
  131.       X2              =   4575
  132.       Y1              =   2520
  133.       Y2              =   2535
  134.    End
  135.    Begin VB.Line Line1 
  136.       BorderColor     =   &H00E0E0E0&
  137.       BorderWidth     =   2
  138.       X1              =   4560
  139.       X2              =   4575
  140.       Y1              =   2520
  141.       Y2              =   2535
  142.    End
  143. Attribute VB_Name = "frmAddIn"
  144. Attribute VB_GlobalNameSpace = False
  145. Attribute VB_Creatable = False
  146. Attribute VB_PredeclaredId = True
  147. Attribute VB_Exposed = False
  148. Private Sub cmdGenerate_Click()
  149. Dim KeyName As Long
  150. Dim KeyFirst As Long
  151. Dim KeyCompany As Long
  152. If Len(txtName.Text) < 1 Or Len(txtFirst.Text) < 1 Or Len(txtCompany.Text) < 1 Then
  153.     MsgBox "You have to enter at least 1 char !", vbInformation + vbOKOnly, "Error!"
  154.     Exit Sub
  155. End If
  156. KeyName = "444" * Asc(Left(txtName.Text, 1))
  157. KeyName = KeyName * Day(Date)
  158. KeyName = Int(KeyName / Month(Date))
  159. KeyFirst = "888" * Asc(Left(txtFirst.Text, 1))
  160. KeyFirst = KeyFirst * Day(Date)
  161. KeyFirst = Int(KeyFirst / Month(Date))
  162. KeyCompany = "111" * Asc(Left(txtCompany.Text, 1))
  163. KeyCompany = KeyCompany * Day(Date)
  164. KeyCompany = Int(KeyCompany / Month(Date))
  165. txtKey.Text = KeyName & "-" & KeyFirst & "-" & KeyCompany
  166. End Sub
  167. Private Sub Command1_Click()
  168.     Unload Me
  169. End Sub
  170.